#!/usr/bin/perl

use strict;
use warnings;

use XML::RPC; 
use Data::Dumper; 

my $xmlrpc; 
my $result;
my $numPost = 5;

$xmlrpc = XML::RPC->new('http://aapugr.wordpress.com/xmlrpc.php'); 

#Se crea un post pero sin publicarlo
$result = $xmlrpc->call(
                'metaWeblog.newPost', 
                1,
                'XXX', 
                'XXX',  
                {
                  title => 'Darío',
                  description => 'Sin contenido',
                  categories  => [('Pruebas')],
                  mt_allow_comments => '0',
                }, 
                0
              ); 

#Se obtinen los numPost post mas recientes
$result = $xmlrpc->call(
                  'metaWeblog.getRecentPosts', 
                  1,
                  'XXX', 
                  'XXX',
                  $numPost
                ); 

#print Dumper $result;

#Se imprimen por pantalla sus ID
my @post = @{$result};

foreach (@post) {
  print "ID: $_->{postid}\n";
} 

#Se modifica el post que se creo y se publica
$result = $xmlrpc->call(
                  'metaWeblog.editPost', 
                  $result->[0]{'postid'},
                  'XXX', 
                  'XXX', 
                  {
                    title => 'Darío AAP',
                    mt_keywords => 'prueba, aap',
                    description => 'Contenido cambiado...',
                    mt_allow_comments => '1'
                  }, 
                  1
                );

#Se imprime por pantalla el post que se ha publicado
$result = $xmlrpc->call(
                  'metaWeblog.getRecentPosts', 
                  1,
                  'XXX', 
                  'XXX',
                  1
                ); 

print Dumper $result->[0];
